3,4!<,4!E,4!N,4!P,(#V,2#],2#f,2#o,2#x,2#{,
.$'".$'1.$'E.$'T.$'l.$'v.$'|.$'
/8'!/L',/L'8/P'M/V'X/V'[/`'g/`'
0~'!0
(I2((T2((
2<(43F(:3F(=3P(
4x(44x(_4
6,)27,)=76)C76)F7@)[7J)f7J)
8O)v8O)|8P)
8Q):9Q)@9R)
:U)o:U)u:V)
:^)C;^)I;_)
<{)+<
A	*%B	*+B
C!*$C"*HC"*lC"*
F\+(F\+3F\+?Fa+KFa+SFf+XFf+gFf+{Ff+
+|J$,
J.,!K8,3K8,6K8,EYY$:REGXY$=REGTB$:AGE%=CVI(AGE$):GOSUB 6650:CATXX%=CVI(CATX$):PUT #7,KEYREC%:PRINT "_":CLS:PRINT,NAMEX$,"REBILLED":FLAGA$="NF":RETURN
4300 IF EOF(1) THEN EOFE$="D":RETURN
4305 EOFE$="0":RETURN
4310 DATEX$=" ":LADD%=0:LEDG%=0:PYB#=0:AGE%=0:UNT#=0:CATUNIT#=0:CATDOL#=0:DOL#=0:DESC%=0:ADD%=0:GOSUB 3500:RETURN
4320 GOSUB 4310:CLOSE #1:OPEN "I",#1,Y2$+":NEWSORT":NAMXX$=NAMEX$:FLAGA$="NF":GOTO 4050
4400 PRINTER%=PRINTER%+1:GOSUB 3340
4410 IF PAGEBREAK%=1 OR PRINTER%<=
THEN IF JUSTLI
D$(I0$,4,2)
Sorting Sort Section 3 Completed -- Writing Pointer File*Sort Section 2 CompletedSort Section 1 -- Sorting *2:NEWSORT*** DATA FILE EMPTY ***Quick In Memory Sort -- Reading FileReading File From Disk Into MemoryThis Is A Big File - Sorting It Will Take Several PassesThis File Is Too Big To Sort. 16,000 Activities Max    --- PRESS RETURN NOW ---    ADD MORE MEMORY TO YOUR COMPUTER.    REMOVE SOME MEMORY RESIDENT PROGRAMS, OR    AVAILABLE MEMORY.  DELETE SOME ACTIVITIES, OR*** YOUR FILE IS TOO BIG TO SORT IN THE ******  THERE ARE NO FILES OF THIS TYPE ON THAT DISK ******  BILLING ENTRIES NOT SORTED!  YOU MUST SORT THEM! ***: NOT READY/AVAILABLE*** DRIVE *** TOO LONG ***YOU MUST RE-SORT YOUR ENTRIESDRIVE LETTER CORRECT? IF SO, THEN  *** YOUR INDEX FILE, 'NEWSORT' NOT FOUND ON _*** DATE WRONG,  MUST BE MM-DD-YY ****** DATE WRONG -- NO SPACES IN DATE ***XXXXXXXX*** NOT ACCEPTABLE ****** NO PERIODS ***    $$#####,.##  TOTAL CHARGES:                        $$#####,.##  ($$#####,.##)  TOTAL CREDITS:                        $$#####,.##: $$#####,.##  TOTAL    #            ($$#######,.##) $$#######,.#########,.##  \                              \   ######.##    O     OVERWRITE This Old ReportRETURN  To Abandon Your New ReportBILLMMXRETURN To PROCEEDX  EXIT To The Operating SystemM  MAIN MenuProgram To Create A File Of Entries In Date OrderENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE *** AT LINE No.: *** ERROR No. :*.TBL: ARE: NOT FOUND.  FILES ON :  *** FILE *** File DISKDRVE Not Found.  Put DISKDRVE On This Disk.TOT.TBLBilling Code File Name?BILLDATE--- REPORT PREPARED ---BLANK DATE   BLANK      99|99|99D To      Date Report For The Period Of   --- SORT DONE, NOW PREPARING YOUR DATE REPORT ---.DSCRNEWSORT.DTE  EXISTS ! ****** WARNING -- .DTEI Will Save Your Date Report As File NO           WARNING,  If Your Last Sort Was To Prepare Bills, You MUST Re-sortNO      To Skip The Sort This TimeRETURN  To Re-Sort Your EntriesDrive On Which To Save Your Report?*.BIL Are:  Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.BIL:O:TESTXXXX*** NEED LETTER 'A' THROUGH 'L' ***Disk Drive Where You Saved These Entries?.     0Entries To Use For Date Report?Name Of The File Where You Saved TheDISKDRVEICopyright David M. Alexander, 1986,1987 
 THEN I0$=R